home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Science / Biology / WayeBox Folder / WayeBox 1.1 / box2 / background_4969.txt < prev    next >
Encoding:
Text File  |  1990-06-13  |  15.0 KB  |  731 lines
  1. -- background: 4969 from stack: in
  2. -- bmap block id: 5465
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. ON OPENCARD
  8.  
  9.   HIDE BACKGROUND FIELD "SHOW"
  10. END OPENCARD
  11.  
  12. on pastecard
  13.   put empty into field 3
  14. end pasteCard
  15.  
  16.  
  17.  
  18. -- part 1 (field)
  19. -- low flags: 00
  20. -- high flags: 0007
  21. -- rect: left=53 top=25 right=78 bottom=391
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 0
  25. -- font id: 3
  26. -- text size: 12
  27. -- style flags: 256
  28. -- line height: 16
  29. -- part name: name
  30.  
  31.  
  32. -- part 2 (field)
  33. -- low flags: 00
  34. -- high flags: 0007
  35. -- rect: left=159 top=107 right=159 bottom=216
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 3
  40. -- text size: 9
  41. -- style flags: 0
  42. -- line height: 12
  43. -- part name: 
  44.  
  45.  
  46. -- part 3 (field)
  47. -- low flags: 00
  48. -- high flags: 0007
  49. -- rect: left=48 top=107 right=158 bottom=104
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 3
  54. -- text size: 9
  55. -- style flags: 0
  56. -- line height: 12
  57. -- part name: 
  58.  
  59.  
  60. -- part 4 (field)
  61. -- low flags: 00
  62. -- high flags: 0007
  63. -- rect: left=49 top=175 right=225 bottom=105
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 3
  68. -- text size: 9
  69. -- style flags: 0
  70. -- line height: 12
  71. -- part name: 
  72.  
  73.  
  74. -- part 5 (field)
  75. -- low flags: 00
  76. -- high flags: 0007
  77. -- rect: left=104 top=175 right=225 bottom=160
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 3
  82. -- text size: 9
  83. -- style flags: 0
  84. -- line height: 12
  85. -- part name: 
  86.  
  87.  
  88. -- part 6 (field)
  89. -- low flags: 00
  90. -- high flags: 0007
  91. -- rect: left=160 top=175 right=225 bottom=216
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 0
  95. -- font id: 3
  96. -- text size: 9
  97. -- style flags: 0
  98. -- line height: 12
  99. -- part name: 
  100.  
  101.  
  102. -- part 7 (field)
  103. -- low flags: 00
  104. -- high flags: 0007
  105. -- rect: left=49 top=242 right=293 bottom=103
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 0
  109. -- font id: 3
  110. -- text size: 9
  111. -- style flags: 0
  112. -- line height: 12
  113. -- part name: 
  114.  
  115.  
  116. -- part 8 (field)
  117. -- low flags: 00
  118. -- high flags: 0007
  119. -- rect: left=102 top=243 right=293 bottom=158
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 0
  123. -- font id: 3
  124. -- text size: 9
  125. -- style flags: 0
  126. -- line height: 12
  127. -- part name: 
  128.  
  129.  
  130. -- part 9 (field)
  131. -- low flags: 00
  132. -- high flags: 0007
  133. -- rect: left=158 top=243 right=293 bottom=216
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 0
  137. -- font id: 3
  138. -- text size: 9
  139. -- style flags: 0
  140. -- line height: 12
  141. -- part name: 
  142.  
  143.  
  144. -- part 10 (field)
  145. -- low flags: 00
  146. -- high flags: 0007
  147. -- rect: left=228 top=107 right=159 bottom=284
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 0
  151. -- font id: 3
  152. -- text size: 9
  153. -- style flags: 0
  154. -- line height: 12
  155. -- part name: 
  156.  
  157.  
  158. -- part 11 (field)
  159. -- low flags: 00
  160. -- high flags: 0007
  161. -- rect: left=283 top=107 right=159 bottom=338
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 0
  165. -- font id: 3
  166. -- text size: 9
  167. -- style flags: 0
  168. -- line height: 12
  169. -- part name: 
  170.  
  171.  
  172. -- part 12 (field)
  173. -- low flags: 00
  174. -- high flags: 0007
  175. -- rect: left=338 top=107 right=159 bottom=395
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 0
  179. -- font id: 3
  180. -- text size: 9
  181. -- style flags: 0
  182. -- line height: 12
  183. -- part name: 
  184.  
  185.  
  186. -- part 13 (field)
  187. -- low flags: 00
  188. -- high flags: 0007
  189. -- rect: left=228 top=176 right=226 bottom=287
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 0
  193. -- font id: 3
  194. -- text size: 9
  195. -- style flags: 0
  196. -- line height: 12
  197. -- part name: 
  198.  
  199.  
  200. -- part 14 (field)
  201. -- low flags: 00
  202. -- high flags: 0007
  203. -- rect: left=285 top=176 right=226 bottom=340
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 0
  207. -- font id: 3
  208. -- text size: 9
  209. -- style flags: 0
  210. -- line height: 12
  211. -- part name: 
  212.  
  213.  
  214. -- part 15 (field)
  215. -- low flags: 00
  216. -- high flags: 0007
  217. -- rect: left=340 top=176 right=226 bottom=394
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 0
  221. -- font id: 3
  222. -- text size: 9
  223. -- style flags: 0
  224. -- line height: 12
  225. -- part name: 
  226.  
  227.  
  228. -- part 16 (field)
  229. -- low flags: 00
  230. -- high flags: 0007
  231. -- rect: left=229 top=243 right=295 bottom=287
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 0
  235. -- font id: 3
  236. -- text size: 9
  237. -- style flags: 0
  238. -- line height: 12
  239. -- part name: 
  240.  
  241.  
  242. -- part 17 (field)
  243. -- low flags: 00
  244. -- high flags: 0007
  245. -- rect: left=286 top=243 right=295 bottom=341
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 0
  249. -- font id: 3
  250. -- text size: 9
  251. -- style flags: 0
  252. -- line height: 12
  253. -- part name: 
  254.  
  255.  
  256. -- part 18 (field)
  257. -- low flags: 00
  258. -- high flags: 0007
  259. -- rect: left=341 top=243 right=294 bottom=394
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 0
  263. -- font id: 3
  264. -- text size: 9
  265. -- style flags: 0
  266. -- line height: 12
  267. -- part name: 
  268.  
  269.  
  270. -- part 19 (field)
  271. -- low flags: 00
  272. -- high flags: 4007
  273. -- rect: left=103 top=107 right=158 bottom=159
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 0 / 0
  276. -- text alignment: 0
  277. -- font id: 3
  278. -- text size: 9
  279. -- style flags: 0
  280. -- line height: 12
  281. -- part name: 
  282.  
  283.  
  284. -- part 20 (field)
  285. -- low flags: 00
  286. -- high flags: 4000
  287. -- rect: left=54 top=81 right=99 bottom=391
  288. -- title width / last selected line: 0
  289. -- icon id / first selected line: 0 / 0
  290. -- text alignment: 1
  291. -- font id: 0
  292. -- text size: 12
  293. -- style flags: 12288
  294. -- line height: 16
  295. -- part name: lab name
  296.  
  297.  
  298. -- part 21 (field)
  299. -- low flags: 00
  300. -- high flags: 0000
  301. -- rect: left=405 top=176 right=214 bottom=508
  302. -- title width / last selected line: 0
  303. -- icon id / first selected line: 0 / 0
  304. -- text alignment: 0
  305. -- font id: 3
  306. -- text size: 12
  307. -- style flags: 0
  308. -- line height: 16
  309. -- part name: freezer name
  310.  
  311.  
  312. -- part 23 (button)
  313. -- low flags: 00
  314. -- high flags: 0000
  315. -- rect: left=409 top=313 right=336 bottom=435
  316. -- title width / last selected line: 0
  317. -- icon id / first selected line: 1014 / 1014
  318. -- text alignment: 1
  319. -- font id: 0
  320. -- text size: 12
  321. -- style flags: 0
  322. -- line height: 16
  323. -- part name: Prev
  324. ----- HyperTalk script -----
  325. on mouseUp
  326.   go to prev card
  327. end mouseUp
  328.  
  329.  
  330.  
  331. -- part 24 (button)
  332. -- low flags: 00
  333. -- high flags: 0000
  334. -- rect: left=439 top=314 right=337 bottom=464
  335. -- title width / last selected line: 0
  336. -- icon id / first selected line: 1013 / 1013
  337. -- text alignment: 1
  338. -- font id: 0
  339. -- text size: 12
  340. -- style flags: 0
  341. -- line height: 16
  342. -- part name: Next
  343. ----- HyperTalk script -----
  344. on mouseUp
  345.   go to next card
  346. end mouseUp
  347.  
  348.  
  349.  
  350. -- part 26 (field)
  351. -- low flags: 00
  352. -- high flags: 0000
  353. -- rect: left=404 top=236 right=271 bottom=512
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 0 / 0
  356. -- text alignment: 0
  357. -- font id: 3
  358. -- text size: 12
  359. -- style flags: 0
  360. -- line height: 16
  361. -- part name: card id
  362.  
  363.  
  364. -- part 45 (button)
  365. -- low flags: 00
  366. -- high flags: 8002
  367. -- rect: left=408 top=40 right=63 bottom=508
  368. -- title width / last selected line: 0
  369. -- icon id / first selected line: 0 / 0
  370. -- text alignment: 1
  371. -- font id: 0
  372. -- text size: 12
  373. -- style flags: 0
  374. -- line height: 16
  375. -- part name: pop card
  376. ----- HyperTalk script -----
  377. on mouseUp
  378.   pop card
  379. end mouseUp
  380.  
  381.  
  382.  
  383. -- part 46 (button)
  384. -- low flags: 00
  385. -- high flags: 8002
  386. -- rect: left=408 top=69 right=90 bottom=508
  387. -- title width / last selected line: 0
  388. -- icon id / first selected line: 0 / 0
  389. -- text alignment: 1
  390. -- font id: 0
  391. -- text size: 12
  392. -- style flags: 0
  393. -- line height: 16
  394. -- part name: go to lab
  395. ----- HyperTalk script -----
  396. on mouseUp
  397.   push card
  398.   if field "lab name" is empty then
  399.     ask "what is the name of the lab"
  400.     if it is empty then exit MouseUp
  401.     put it into field "lab Name"
  402.   end if
  403.   put field "lab Name" into labName
  404.   go to stack "box1"
  405.   go to card item 1 of labName
  406. end mouseUp
  407.  
  408.  
  409.  
  410.  
  411. -- part 47 (button)
  412. -- low flags: 00
  413. -- high flags: 8002
  414. -- rect: left=409 top=124 right=148 bottom=510
  415. -- title width / last selected line: 0
  416. -- icon id / first selected line: 0 / 0
  417. -- text alignment: 1
  418. -- font id: 0
  419. -- text size: 12
  420. -- style flags: 0
  421. -- line height: 16
  422. -- part name: go to freezer
  423. ----- HyperTalk script -----
  424. on mouseUp
  425.   push card
  426.   if field "freezer name" is empty then
  427.     ask "what is the name of the freezer"
  428.     put it into field "freezer Name"
  429.   end if
  430.   put field "freezer Name" into FreezerName
  431.   go to stack "box2"
  432.   go to card item 1 of FreezerName
  433. end mouseUp
  434.  
  435.  
  436.  
  437.  
  438. -- part 48 (button)
  439. -- low flags: 00
  440. -- high flags: 8002
  441. -- rect: left=409 top=96 right=119 bottom=510
  442. -- title width / last selected line: 0
  443. -- icon id / first selected line: 0 / 0
  444. -- text alignment: 1
  445. -- font id: 0
  446. -- text size: 12
  447. -- style flags: 0
  448. -- line height: 16
  449. -- part name: no. of cards
  450. ----- HyperTalk script -----
  451. on mouseUp
  452.   set userlevel to 5
  453.   put empty into message box
  454.   get number of cards
  455.   put "The total Number of Cards = " into word 1 of message
  456.   put it into word 7 of message
  457.   set userlevel to 2
  458. end mouseUp
  459.  
  460.  
  461.  
  462. -- part 50 (button)
  463. -- low flags: 00
  464. -- high flags: 8002
  465. -- rect: left=406 top=252 right=274 bottom=506
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 0 / 0
  468. -- text alignment: 1
  469. -- font id: 0
  470. -- text size: 12
  471. -- style flags: 0
  472. -- line height: 16
  473. -- part name: New Card
  474. ----- HyperTalk script -----
  475. on mouseUp
  476.   answer "Make another card like this one? " with "yes" or "no" or "cancel"
  477.   if it is "cancel" then exit mouseUp
  478.   if it is "no" then
  479.     put "Go to the card which you want to copy" into the message box
  480.     exit mouseUp
  481.   end if
  482.  
  483.   if it is "yes" then
  484.  
  485.     domenu "copy Card"
  486.     domenu paste card
  487.     set name of this card to empty
  488.     repeat with i=1 to number of fields
  489.       put empty into field i
  490.     end repeat
  491.     put empty into field "Name"
  492.   end if
  493.  
  494. end mouseUp
  495.  
  496.  
  497.  
  498. -- part 52 (button)
  499. -- low flags: 00
  500. -- high flags: 8002
  501. -- rect: left=407 top=226 right=248 bottom=508
  502. -- title width / last selected line: 0
  503. -- icon id / first selected line: 0 / 0
  504. -- text alignment: 1
  505. -- font id: 0
  506. -- text size: 12
  507. -- style flags: 0
  508. -- line height: 16
  509. -- part name: Empty all slots
  510. ----- HyperTalk script -----
  511. on mouseUp
  512.   answer "Do you want to empty all fields?" with "yes" or "no" or "cancel"
  513.   if it is "no" then exit mouseUp
  514.   if it is "cancel" then exit mouseUp
  515.   repeat with i=1 to number of fields
  516.     put empty into field i
  517.   end repeat
  518. end mouseUp
  519.  
  520.  
  521.  
  522. -- part 54 (button)
  523. -- low flags: 00
  524. -- high flags: 0000
  525. -- rect: left=0 top=0 right=0 bottom=0
  526. -- title width / last selected line: 0
  527. -- icon id / first selected line: 0 / 0
  528. -- text alignment: 1
  529. -- font id: 0
  530. -- text size: 12
  531. -- style flags: 0
  532. -- line height: 16
  533. -- part name: 
  534.  
  535.  
  536. -- part 55 (button)
  537. -- low flags: 00
  538. -- high flags: 0000
  539. -- rect: left=0 top=0 right=0 bottom=0
  540. -- title width / last selected line: 0
  541. -- icon id / first selected line: 0 / 0
  542. -- text alignment: 1
  543. -- font id: 0
  544. -- text size: 12
  545. -- style flags: 0
  546. -- line height: 16
  547. -- part name: 
  548.  
  549.  
  550. -- part 56 (button)
  551. -- low flags: 00
  552. -- high flags: 0000
  553. -- rect: left=0 top=0 right=0 bottom=0
  554. -- title width / last selected line: 0
  555. -- icon id / first selected line: 0 / 0
  556. -- text alignment: 1
  557. -- font id: 0
  558. -- text size: 12
  559. -- style flags: 0
  560. -- line height: 16
  561. -- part name: 
  562.  
  563.  
  564. -- part 57 (button)
  565. -- low flags: 00
  566. -- high flags: 8000
  567. -- rect: left=471 top=274 right=315 bottom=512
  568. -- title width / last selected line: 0
  569. -- icon id / first selected line: 32462 / 32462
  570. -- text alignment: 1
  571. -- font id: 0
  572. -- text size: 12
  573. -- style flags: 0
  574. -- line height: 16
  575. -- part name: Help
  576. ----- HyperTalk script -----
  577. on mouseUp
  578.   push card
  579.   go to card id 11167 of stack "box4"
  580. end mouseUp
  581.  
  582.  
  583.  
  584.  
  585. -- part 58 (button)
  586. -- low flags: 00
  587. -- high flags: 8002
  588. -- rect: left=1 top=312 right=342 bottom=35
  589. -- title width / last selected line: 0
  590. -- icon id / first selected line: 0 / 0
  591. -- text alignment: 1
  592. -- font id: 0
  593. -- text size: 12
  594. -- style flags: 0
  595. -- line height: 16
  596. -- part name: Zoom
  597. ----- HyperTalk script -----
  598. on mouseUp
  599.  
  600.   global FF
  601.   global LL
  602.   global CC
  603.   global MM
  604.   put empty into MM
  605.   put 1 into CC
  606.   ask "Which field you like to see?" with "A1"
  607.   if it is empty then exit mouseUp
  608.   if it is not in "A1A2A3A4A5A6B1B2B3B4B5B6C1C2C3C4C5C6" then exit mouseUp
  609.   put it into WFF
  610.   if WFF is "A1" then put 3 into FF
  611.   if WFF is "A2" then put 19 into FF
  612.   if WFF is "A3" then put 2 into FF
  613.   if WFF is "B1" then put 4 into FF
  614.   if WFF is "B2" then put 5 into FF
  615.   if WFF is "B3" then put 6 into FF
  616.   if WFF is "A4" then put 10 into FF
  617.   if WFF is "A5" then put 11 into FF
  618.   if WFF is "A6" then put 12 into FF
  619.   if WFF is "B4" then put 13 into FF
  620.   if WFF is "B5" then put 14 into FF
  621.   if WFF is "B6" then put 15 into FF
  622.   if WFF is "C1" then put 7 into FF
  623.   if WFF is "C2" then put 8 into FF
  624.   if WFF is "C3" then put 9 into FF
  625.   if WFF is "C4" then put 16 into FF
  626.   if WFF is "C5" then put 17 into FF
  627.   if WFF is "C6" then put 18 into FF
  628.  
  629.   get the number of lines in field FF
  630.   put it into LL
  631.   repeat for LL times
  632.     set cursor to busy
  633.     get line CC of field FF
  634.     put it after MM
  635.     put return after MM
  636.     add 1 to CC
  637.   end repeat
  638.  
  639.   put MM into field "SHOW"
  640.   repeat with c = 1 to number of card buttons
  641.     Hide card button c
  642.   end repeat
  643.   show field "SHOW"
  644.  
  645. end mouseUp
  646.  
  647.  
  648.  
  649. -- part 59 (field)
  650. -- low flags: 80
  651. -- high flags: 4007
  652. -- rect: left=49 top=23 right=340 bottom=511
  653. -- title width / last selected line: 0
  654. -- icon id / first selected line: 0 / 0
  655. -- text alignment: 0
  656. -- font id: 3
  657. -- text size: 12
  658. -- style flags: 0
  659. -- line height: 16
  660. -- part name: SHOW
  661.  
  662.  
  663. -- part 60 (button)
  664. -- low flags: 00
  665. -- high flags: 8002
  666. -- rect: left=0 top=285 right=313 bottom=35
  667. -- title width / last selected line: 0
  668. -- icon id / first selected line: 0 / 0
  669. -- text alignment: 1
  670. -- font id: 0
  671. -- text size: 12
  672. -- style flags: 0
  673. -- line height: 16
  674. -- part name: hide
  675. ----- HyperTalk script -----
  676. on mouseUp
  677.   global LL
  678.   global FF
  679.   global CC
  680.   global MM
  681.   put 1 into CC
  682.   put empty into MM
  683.   get the number of lines in field "show"
  684.   put it into LL
  685.   repeat for LL times
  686.     get line CC of field "SHOW"
  687.     put it after MM
  688.     add 1 to CC
  689.   end repeat
  690.  
  691.   hide field "SHOW"
  692.   repeat with c =1 to number of card buttons
  693.     show card button c
  694.   end repeat
  695. end mouseUp
  696.  
  697.  
  698.  
  699. -- part 61 (button)
  700. -- low flags: 00
  701. -- high flags: 8002
  702. -- rect: left=406 top=199 right=224 bottom=511
  703. -- title width / last selected line: 0
  704. -- icon id / first selected line: 0 / 0
  705. -- text alignment: 1
  706. -- font id: 0
  707. -- text size: 12
  708. -- style flags: 0
  709. -- line height: 16
  710. -- part name: Name Card
  711. ----- HyperTalk script -----
  712. on mouseUp
  713.   put empty into NameCard
  714.   if field "Name" is empty
  715.   then
  716.   ask "Please enter the name of this card:"
  717.   if it is empty then exit mouseUp
  718.   put it into NameCard
  719.   set the name of this card to empty
  720.   put NameCard into field "Name"
  721. end if
  722.  
  723. if field "Name" is not empty
  724. then
  725. put first line of field "Name" into NameCard
  726. set the name of this card to NameCard
  727. end if
  728.  
  729. end mouseUp
  730.  
  731.